0 CLR
10 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
60 PRINT"[147]":POKE53281,1:POKE53280,1
70 R=0:PRINT"        THE CUBE "
80 A=1138:B=55410:FORK=1TO4:READG:FORT=1TO4:POKE A,160:POKEB,G:A=A+1:B=B+1
90 NEXTT:A=A+36:B=B+36:NEXTK:POKE1141,32
100 DIM A1(16):B1=1:TR=0
210 R=R+1:K=INT(RND(0)*16+1):IF A1(K)=0THEN T=T:    READL:A1(K)=L:GOTO230
220 R=R-1:GOTO210
230 IF R<>16THEN210
235 A=1105:C=55377:Z=1
240 FORM=Z TOZ+3 :B=A:D=C
250 FORK=1 TO4:FORT=1 TO6:POKED,A1(M):POKEB,160:B=B+1:D=D+1
260 NEXT T:B=B+34:D=D+34:NEXT K:A=A+7 :C=C+ 7:NEXT M:A=B+19:C=D+19
270 IFB>1690THENPRINT"[145][145][145]":GOTO300
280 Z=Z+4:GOTO240
300 V=53248:POKE2040,13:FORS=832TO832+62:READG:POKES,G:NEXT
310 POKEV+21,1:POKEV+39,15:POKEV,32:POKEV+1,60 :POKEV+23,1:POKEV+29,1:X=32:Y=60
320 GET A$:IF A$="[145]"AND Y>=100THEN Y=Y-40:POKEV+1,Y:B1=B1-4: GOTO320
330 IF A$=""AND Y<=140THEN Y=Y+40:POKEV+1,Y:B1=B1+4: GOTO320
340 IF A$=""AND X<=144THEN X=X+56:POKEV  ,X:B1=B1+1: GOTO320
350 IF A$="[157]"AND X>=88 THEN X=X-56:POKEV  ,X:B1=B1-1:GOTO320
360 IF A$="[133]" THEN 400
370 IF A$="[136]" THEN 760
380 GOTO320
400 FORG=1TO16:IF A1(G)=1THEN 420
410 NEXT
420 ON G GOTO 430,440,450,460,470,480,490,500,510,520,530,540,550,560,570,580
430 IF B1=2 OR B1=5 THEN600
435 GOTO320
440 IF B1=1 OR B1=3 OR B1=6 THEN600
445 GOTO320
450 IF B1=2 OR B1=4 OR B1=7 THEN600
455 GOTO320
460 IF B1=3 ORB1=8 THEN600
465 GOTO320
470 IF B1=1 ORB1=6 ORB1=9 THEN610
475 GOTO320
480 IF B1=5 ORB1=2 ORB1=7ORB1=10THEN610
485 GOTO320
490 IF B1=6 ORB1=3 ORB1=8ORB1=11THEN610
495 GOTO320
500 IF B1=7ORB1=4 ORB1=12THEN610
505 GOTO320
510 IF B1=5 ORB1=10ORB1=13THEN620
515 GOTO320
520 IF B1=9 ORB1=6ORB1=11ORB1=14THEN620
525 GOTO320
530 IF B1=10ORB1=7ORB1=12ORB1=15THEN620
535 GOTO320
540 IF B1=11ORB1=8 ORB1=16THEN620
545 GOTO320
550 IF B1=9 ORB1=14THEN630
555 GOTO320
560 IF B1=13ORB1=10ORB1=15THEN630
565 GOTO320
570 IF B1=14ORB1=11ORB1=16THEN630
575 GOTO320
580 IF B1=15ORB1=12THEN630
585 GOTO320
600 IF G=1 THEN B=1105:D=55377:GOTO 640
601 IF G=2 THEN B=1112:D=55384:GOTO 640
602 IF G=3 THEN B=1119:D=55391:GOTO 640
603 IF G=4 THEN B=1126:D=55398:GOTO 640
610 IF G=5 THEN B=1305:D=55577:GOTO 640
611 IF G=6 THEN B=1312:D=55584:GOTO 640
612 IF G=7 THEN B=1319:D=55591:GOTO 640
613 IF G=8 THEN B=1326:D=55598:GOTO 640
620 IF G=9 THEN B=1505:D=55777:GOTO 640
621 IF G=10THEN B=1512:D=55784:GOTO 640
622 IF G=11THEN B=1519:D=55791:GOTO 640
623 IF G=12THEN B=1526:D=55798:GOTO 640
630 IF G=13THEN B=1705:D=55977:GOTO 640
631 IF G=14THEN B=1712:D=55984:GOTO 640
632 IF G=15THEN B=1719:D=55991:GOTO 640
633 IF G=16THEN B=1726:D=55998:GOTO 640
635 GOTO 320
640 J=0:TR=TR+1
650 J=J+1:FORT=1 TO6:POKED,A1(B1):POKEB,160:B=B+1:D=D+1:NEXTT
660 B=B+34:D=D+34:IF J>3THEN 670
661 GOTO650
670 IFB1=1 THEN B=1105:D=55377:GOTO 710
671 IFB1=2 THEN B=1112:D=55384:GOTO 710
672 IFB1=3 THEN B=1119:D=55391:GOTO 710
673 IFB1=4 THEN B=1126:D=55398:GOTO 710
680 IFB1=5 THEN B=1305:D=55577:GOTO 710
681 IFB1=6 THEN B=1312:D=55584:GOTO 710
682 IFB1=7 THEN B=1319:D=55591:GOTO 710
683 IFB1=8 THEN B=1326:D=55598:GOTO 710
690 IFB1=9 THEN B=1505:D=55777:GOTO 710
691 IFB1=10THEN B=1512:D=55784:GOTO 710
692 IFB1=11THEN B=1519:D=55791:GOTO 710
693 IFB1=12THEN B=1526:D=55798:GOTO 710
700 IFB1=13THEN B=1705:D=55977:GOTO 710
701 IFB1=14THEN B=1712:D=55984:GOTO 710
702 IFB1=15THEN B=1719:D=55991:GOTO 710
703 IFB1=16THEN B=1726:D=55998:GOTO 710
705 GOTO 320
710 J=0
720 J=J+1:FORT=1 TO6:POKED,A1(G ):POKEB,160:B=B+1:D=D+1:NEXTT
730 B=B+34:D=D+34:IF J>3THEN 750
740 GOTO720
750 A1(0)=A1(B1):A1(B1)=A1(G):A1(G)=A1(0):G=B1:GOTO320
760 R=0:IF A1(1)=0 AND A1(2)=0 AND A1(3)=0 THEN R=R+1
770 IF A1(5)=2 AND A1(6)=2 AND A1(7)=2 AND A1(8)=2 THEN R=R+1
780 IF A1(9)=6 AND A1(10)=6 AND A1(11)=6 AND A1(12)=6 THEN R=R+1
790 IF A1(13)=5 AND A1(14)=5 AND A1(15)=5 AND A1(16)= 5  THEN R=R+1
800 IF R=4 THEN PRINT"CONGRATULATIONS IT ONLY TOOK YOU";
810 IF R=4 THEN PRINT TR;"TIMES TO SOLVE THE PUZZLE":END
820 PRINT" KEEP TRYING":FORT=1 TO 30
830 POKE209,0:POKE210,212:POKE211,0:PRINT"0D H[213][190] [184][146]@@@@@@@_U@[192]@@@@@O";
840 N=54296:NEXT:POKEN,0:PRINT"            ":GOTO320
850 REM *****************
860 REM "" = RIGHT MOVEMENT
870 REM "[157]" = LEFT MOVEMENT
880 REM "[145]" = UPWARD MOVEMENT
890 REM "" = DOWNWARD MOVEMENT
900 REM "[133]" = SWITCHES THE BLOCKS
910 REM "[136]" = CHECKS TO SEE IF PUZZLE IS SOLVED
920 REM PROGRAM WRITTEN BY MICHAEL POPE
930 REM *****************
1000 DATA 0,2,6,5,0,0,0,1,2,2,2,2,6,6,6,6,5,5,5,5,0,0,0,255,255,255
1010 DATA 255,255,255,192,0,3,192,0,3,192,0,3,192,0,3,192,0,3,192,0,3,192,0,3
1020 DATA 192,0,3,192,0,3,192,0,3,192,0,3,192,0,3,192,0,3,192,0,3,192,0,3
1030 DATA 192,0,3,255,255,255,255,255,255